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INTRODUCTION 


This document is a brief but complete description of a 
new language invented and implemented by the authors. This 
language is intended to be a suitable vehicle for programs 
which would otherwise be written in machine language for 
reasons of efficiency or flexibility. It 1S part of a 
system which also includes a compiler capable of producing 
reasonably efficient object code and a runtime which imple- 
ments the input-output and string-handling features of the 
language as well as a fairly elaborate storage allocator. 
The system automatically takes care of paging arrays and 
blocks from the drum if they have been so declared. 


THE LANGUAGE 


A QSPL program consists of statements Separated by 
semicolons. Carriage returns and blanks have no Signif- 
icance in the language except that they: 


l. Act as word (and comment) delimiters. 


2. Are taken literally in string and character con- 
stants. | 


Warning: This is one of the many features of the language 
which can cause trouble for the unwary programmer. It is 
quite possible to write two statements without the separat-_ 
ing semicolon and wind up with something which is legal, but 
not at all what was intended. It is a general characteris- 
tic of QSPL that it iS very permissive; many things are 
legal which are not at all reasonable. | 


A statement may be: 
l. A declaration. 
2. A listing control statement. 
3. An end statement. 


4. A function definition. 
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2. A comment, which is a line beginning 
(after a semicolon or another comment) 
with an asterisk (“*“) and ending with a 
Carriage return (not “;"). 

6. An expression. 


Most statements are expressions, so we will discuss’ them 
first. | 


Expressions 
An expression is made up of operands separated by oper- 
ators. Parentheses are allowed to any reasonable depth. 
The operators are arranged in a hierarchy of binding 
Strength or precedence. Those at the top of the following 
list are executed latest, so that atb*c is at(b*c). 
& denotes sucessive evaluation. The value of the 
result is the value of the last expression in 
the string. Thus 
A+B & C+D; 
Or more plausibly 
F(A,B) & G(L,Y); 


which causes both functions to be called in the 
Order in which they are written. 


WHERE is similar to &, but causes the following ex- 
| pression to be evaluated first. It may not be 

lterated. Thus 7 

Ff (X,Y) WHERE N<1l4; 

FOR WHILE 

takes the form 

<expression> FOR <for clause>;. 
Or 


<expression> WHILE <expression>; 
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IF 


OR 


The expression 1s evaluated repeatedly under 
control of the for clause (see below for the 
Syntax of this construct). The final value of 
the expression is discarded, and the value of 
an expression involving FOR or WHILE is’ unde- 
Fined. Of course, something like 


(A[I]) [J] <@ FOR I=l TO N FOR J=1 TO M: 
is legal. | 
takes the form 


<expression> IF <expression> ELSE | <expres-— 
Sion>;. ee 


The second expression is evaluated. If it is. 


non-zero, the first expression is evaluated. 
Its value becomes the value of the whole thing, 
and the third expression (which, by the way, 
may contain another IF).is skipped. Otherwise 
the first expression is skipped, and the third 
ls evaluated. Thus 


X<4 IF Y=6 ELSE X<5 If Y>=Q ELSE X<6; 


If the final ELSE is omitted, ® will be sup- 
plied. | 


ls the assignment operator. It ranks on_ the 
same level as for its left-hand operand, and 
just below IF for its right-hand one. The 
right-hand operand is evaluated, and its value 
becomes the value of the left-hand one. The 
whole expression is then treated as though only 


the left-hand side had been written. 


Is the logical or. If either operand is a 
relation (or an expression containing logical 
operators connecting at least one relation), 
then the result is @ or 1 depending on whether 
both operands are true (non-zero). If both 
operands have ordinary values, these values are 
combined with the machine’s MRG instruction. 
Thus 


“A<4 OR BXS 
ls true 1f either relation holds; 


A<4 OR X+1_ 
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is true if A<4 or if X+l is not zero. In both 
these cases, the second operand is not 
evaluated if the first one is true. But 


F(X,Y) OR 2 


is the 24-bit logical or of Z and the value of 
the function call. The operands of an OR are 
never re-ordered. 


AND,EOR | 

AND is the logical and. It 1s exactly the same 
as OR in the way it treats its operands, dif- 
fering only in the result. 

EOR always converts its operands to values’~ and 
uses the EOR insStruction. 


NOT is the logical not. If its single operand is a 
relation (see the discussion of OR) its value 
is inverted (@ becomes 1, 1 becomes 9). Other- 
wise, a 24-bit complement is taken (with EOR 
=—1).. 


= # < <= > >= : 
are the relations. Each one evaluates its 
operands and then performs the indicated test. 
For these and all the arithmetic operations, 
the operands may be re-ordered if it suits the 
compiler’s convenience. 


MOD A MOD B is the remainder of A/B. 
+ - perform 24-bit integer addition or subtraction. 


* / LSH RSH LCY RCY P _ 
"a" and “/" perform 24-bit integer multiplica- 
tion and division. No test is made for over- 
flow on division. 
The shift operations shift the first operand 
the number of places indicated by the second 
operand. Vacated bits are replaced by zeros. 
The cycle operators do an end-around shift. 


+ ~ GOTO RETURN SRETURN DO (unary operators) 
| The unary “+" and “=" do the obvious thing. DO 
is a noise word and is ignored. It may be 
convenient for constructions such as this: 


DO F (X,Y); 


a 
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() 


() 


GOTO transfers to the address which is the 


value of its operand (see the discussion of 
labels below). 

RETURN and SRETURN evaluate their operand(s). 
They leave their values in A, B, and X respect- 
ively and return through the return link of the 
most recently defined function (see below). If 
this is not desired, the RETURN may be modified 
by following it with FROM <expression>. In 
this case the return is to the address which is 
1 + the value of the expression. fThus 


RETURN X+Y FROM FCNL; 


The programmer should be sure that FCNL has a 
proper return address in it, Since the compiler 
will not check this. The operand of RETURN may 
be omitted. RETURN iS anormal return, or a 
no-skip return (failure return) from functions 
called with a failure location (see function 
calls below). SRETURN is a skip return, or a 


normal or success return from functions called’ 


with a failure location. 


(used with field names). 

A field name followed immediately by an expres- 
sion enclosed in parentheses means”) that 
quantity equal to the value of the expression 
shifted so that its least Significant bit 
coincides with that of the field and_ then 
truncated to the field width. That is, the 
value is that of the expression’s, placed in 
the field only, and zero elsewhere. MThus if 
the field G is declared as G(2:3,11) and X+tY is 
at the moment -5 (i.e., 77777773B), then 


G(X+Y) 


ylelds the value 97730000B. See field declar- 
ations and the two tailing operators below. 
Also note that the field displacement quantity 
ls ignored. 


(used in function calls). 

The arguments of the function are enclosed in 

the parentheses, Separated by commas. Thus 
F(X,Y+5,2). 


Note that the function may be specified by an 
expression; thus 


Page 
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(A+B) (A, Y+5,2Z) 


is perfectly legal. It causes control to be 
transferred to the location which is the value 
of the expression A+B with the specified argu- 
ments. Beware! The values of the first three 
function arguments are transmitted in the A, B, 
and X registers respectively. The addresses of 
the values of further arguments are put into 
NOP instructions which precede the function 
call. .The function is called with a POP which 
leaves the link in @ and transfers to the loca- 
tion addressed by it. Thus 


F(A, Y+5,Z2,P+1,Q) 
compiles 


LDA P; ADD =l; STA T:+1l; LDA Y: ADD =5; 
CAB; LDA A; LDX Zs: NOP Q; NOP T:+1; 
CALL «“F; . 


In addition to @ or more arguments, a _ function 
call may also have a failure location. fThis 
corresponds to a no-skip return (RETURN oper- 
ation) from a function which also has a skip 
return (SRETURN operation). The failure loca- 
tion comes after the arguments and is preceded 
by a colon, thus: | 


F(AL,A2:L). 


The failure location may be either a label, in 
which case control will go there in case of 
failure, or RETURN or SRETURN possibly followed 
by a Single expression, which will be executed 
in case of failure. A function normally re- 
turns just one value, which is passed in the 
A-register. However, it may return no values, 
Or up to three; additional values are put in 
the B and X registers. The first value is 
always the one used for further computation 
(e.g. in Situations like F(X)+l), but any sub- 
set of the values can be saved by putting a 
Save list after the failure location, preceded 
by another colon, thus: 


F(X,Y:M:V1,V2,V3) 


Or even 
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@ $ 


F(P,R::X,Y,2Z) 


if there is no failure location. ‘The save list 
must be a list of simple variables. It is all 
right to have a comma with no name; the corres- 
ponding return value just gets lost. See below 
for a discussion of function declarations. 
Note that this calling convention is not the 
Same aS FORTRAN’s. In particular, in the above 
example nothing the function does (within 
reason) can affect the value of Aor Z It is 
possible to transmit the address of A or Z with 
the reference operator, however (see below). 


(indirect tailing). The . must be followed by 
a field name (see discussion of declarations 
below). The resulting object refers to the 
Specified field relative to the address which 
is the value of the first operand. In other 
words, the first operand is considered to be a 
pointer to a location which is then offset by 
the displacement value of the field. Thus, if 
we have 


DECLARE FIELD A(1), B(2); 


and if X contains 143, then X.A refers to loca- 
tion 144, X.B to 145, X.A.B to 2 + the contents 


of location 144. A tailed operand may appear ' 


On either side of an assignment. See the dis- 


cussion of PAGED declaration for the treatment 


of paged blocks. | ' 


(tailing, binary operator, Same precedence as. 
a The S$ must be followed by a field name. 
This (direct) form of tailing refers to the. 


Page 


bits of the first operand itself, described by’ 
the second operand. The construct TSF is. 


almost equivalent to @T.F. I.e., it refers to 
the bits of T (not the word addressed by T) 
Selected by F. The word displacement of F is 
ignored, and F must not cross a word boundary. 


(reference and indirection). The reference 
operator -"“@" takes an operand which must be an 
address (1.e. acceptable on the left side of 


| 


an asSignment) and returns this address as its. 
value. Note that this implies that iteration. 


of the reference operator is illegal (in fact 


| 


it does not make any sense). The indirection. 


operator "S$" evaluates its operand and returns > 


| 
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this value as an address. The sequence “@S" is 
equivalent to no operation, except that “$" on 
an address is compiled with the machine’s in- 
direct bit, and will therefore be affected by 
the presence of indirect or index bits in the 
contents of address. If we have written 


DECLARE FIELD S(Q); 


then <E>.S iS equivalent to S<E>, with the 
exception noted above. 


[] (subscripting). A single subscript is allowed. 
As with function calls, the object being sub- 
Scripted may be an arbitrary expression. If it 
has been declared as an array, the compiler 
loads the subscript into the xX register. and 
compiles an indirect reference through the 
array name. I.e., it expects the array name to 
contain the base address of the array with 
index bit on. For any other expression the 
“[]“ operator is equivalent to "“S"+".". Thus 


(A-B)[C OR D]+l 
compiles as 


LDA C; MRG D; STA T; LDA A; SUB B; 
ADD T; XXA; LDA /@; ADD =1; 


Primaries 


The primaries for expressions may be numbers, names, 
String constants, or character constants. 


numbers 


8 


A number may be an integer constant or a real constant. 


An integer constant is a string of digits, possibly followed 
by B or D, possibly followed by a Single-digit scale factor. 
B makes the number octal; if it is absent, decimal is as- 
sumed. Thus 190D = 1D2 = 144B = 1B2+44B = 1090. A real 
constant is of the form xxx.xxxExxx. Either the dot or the 
E must be present. If the dot is present, there must _ be 
some digits before it; if the E is present, there must be 
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some digits after it. for further details, consult the — 


description in R-21 of the SIC SYSPOP, which is used to 
convert real constants to binary form. 


names 


A name is a string of any number of letters and digits 
beginning with a letter. Only the first six characters of 
the name are significant. A name must be declared (see 
below). All names except parameters and fields are treated 
in exactly the same way when they occur in expressions 
(except for subscripting). E.g. a string name refers to the 
pointer to the string descriptor which is the value of the 
name. Thus, if S is a string 


S<A+l1; 


simply stores Atl into S; this is probably not reasonable. 
Functions are provided to convert between strings and num- 
bers. 


reserved words 


There are about 8@ reserved words (see Appendix 8) 
which may not be used as names. In addition, about 294 
locations in the runtime (see Appendix C) are predeclared as 
external; attempts to declare them for other purposes will 
fail. 


character constants 
A character constant has the form 
“<three or fewer pseudo-characters>~ 


and may be used wherever a constant is used. A 
pseudo-character is any character other than "“&", or “ “ 
followed by one of the following: 


l. Another "&" or a“'". The two are equivalent 
to a single “&“ or “°“ in the constant. 

2. Three octal digits. The number thus defined, 
truncated to 8 bits, counts as one character. 

3. A letter. The ASCII (internal) code for the 
letter + 1@@B is the value of the 
pseudo-character. 
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The characters are right-justified in the constant, which is 
filled out with blanks (@) on the left. It is an error to 
have more that 3 pseudo-characters in the constant. 


String constants 


A string constant has the form “<any number of 
pseudo-characters>". It 1s legal in any context in which a 
String name is legal. A descriptor will be created which 
points to the constant String. If the String constant ap- 
pears alone immediately after a left arrow, the variable to 
which the constant is being assigned is assumed to hold a 
pointer to an already exiSting string descriptor; in all 
Other cases, space for a descriptor will be allocated for 
the constant by the compiler. In any case, writing into the 
String will alter the constant. 


field-derived constants 


A variety of operations are provided for converting 
field names into constants: 


l. F(<constant expression>) iS a constant whose 
value is that of the expression positioned to 
and truncated to fit within the field. Its 
value is equivalent to that of the variable T 
after the statements 


TKO; TSF<<expression>; 


have been executed. F must not cross- word 
boundaries. | 
2. #$The function FSHIFT(F) has 23 - (the right- 
most bit position occupied by F) as its 
value. F must not cross. word boundaries. 
The value of FSHIFT is a constant. | | 
3. The function FMASK(F) has as value a constant 
which has one bits in positions selected by 
the field as its value. It is equivalent to 
F(-l1). F must not cross word boundarles. 
4. A field name F appearing in any context other 
than 
F ( 
ok 
SF 
is equivalent to a constant whose value is 
the word displacement of the field. 
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constant expressions 


| Any expression involving operators of precedence higher 
than FOR and constant operands will be evaluated by the 
compiler yielding a result which behaves exactly like a 
constant. 


Declarations 


Variables are declared with DECLARE or FUNCTION state- 
ments or by appearing as labels. The syntax of variable 
DECLARE is 


DECLARE [FIXED or PAGED] [INTEGER or REAL or 
STRING] [ARRAY] [EXTERNAL or ENTRY or 
LOCAL ] <namelist>. 


The stuff after the DECLARE may be repeated as many times as 
desired. Once FIXED, PAGED or ARRAY has been used it re- 
mains in effect for the remainder of the current DECLARE 
Statement. INTEGER is assumed if it is omitted, but once 
STRING has been uSed it remains in ‘effect until INTEGER 
appears again. Each name in the namelist may be preceded by 
“S" (which makes it an entry) or by “*" (which makes. it 
external, i.e. prevents storage from being assigned for it). 
If FIXED and ARRAY are both present, a name may be = followed 
by an expression in parentheses (or brackets). Thus 


DECLARE FIXED ARRAY A[12], B[X*2+14]; 


The expression (which must be a constant) will be evaluated 
and that many cells assigned for the array at compile time. 
The base address of the region assigned, with the index bit 
set, will be stored in the name. If a name is declared 
ARRAY without any storage being assigned, the system will 
assume that its value iS a pointer to an array with the | 
index bit set. I.e., 1t will compile | 


LDX I; LDA <A; STA B 
for B<A[I]. 


Examples . | 
DECLARE INTEGER A,B STRING D, $Gl, cove 
EXTERNAL G3, G4, 

ARRAY E(X+Y[4];, INTEGER C (18); 
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declares two scalar integers, one integer array which will 

be assigned 19 locations when the declaration is executed, 

two local scalar strings (D and G2), one local string array 

which will be assigned X+Y[4] locations when the declaration 

is executed, one scalar string which is an entry (Gl), and 
two scalar scene which are assumed to be defined elsewhere 

(G3 and Gere 


declared cache 


A name or an array may be declared paged by putting the 
word PAGED in front of its declaration. This attribute, 
Once mentioned, applies to all the names declared following 
lt in the same statement. If an array is declared PAGED 
(not a FIXED array, of course), all references to it will 
be made to the drum. Correct access to the array will be 
Obtained only if it is subscripted in the usual way: A[I]. 
It is not true that (A+l)[I] is equivalent to A[I+l], for 
example, as is the case for core arrays. 


If a name declared paged is not an array, the. only 
effect is that when it is tailed the system will assume it 
contains a.drum addrsss. Such an address can only be cor- 
rectly obtained with PMAKE (see below). It is the program- 
mer°s responsibility to see that: | 

a. It does contain a drum address See with 
PMAKE. 
b. The field name used for tailing has a word 
displacement less than the block size speci- 
fied by the PMAKE. Unpredictable errors will 
occur if this rule 1S not observed. | 
Declarations of fields are not affected by PAGED. Indirec- 
tion ($) and subscripting ([]) will work properly on a PAGED 
pointer. Arithmetci may be done on PAGED pointers in the. 
usual fashion, provided the result is within a block alloca- 
ted by a Single call to PMAKE. thus after 


DECLARE PAGED P; FIELD F£@(@) ,F1(1),F2(2); 
P<PMAKE (2); 


the statements 

A<P.F1l; A<(P+1).FQ@; A<(P+1) [8]; 
have the same effect, pout 

A<P.F2; A<(P+2) (0); 


are all erroneous, since only two words were allocated in. 
the block pointed to by P. | | 


OSPL Manual Page 13 


declared string 


When a name is declared to be a string, a Single stor- 
age location is reserved for it unless FIXED has been used. 
Strings are specified, however, by four-word descriptors. 
The address of such a descriptor must be put into the string 
variable befor it is used in any string operation. FOL 
non-FIXED strings, this is usually done with the SETUP func- 
tion, possibly preceded by a MAKE; alternatively, the ad- 
dress of a descriptor obtained in some other way can be 
used. If a string variable is not properly initialized, the 
consequences of uSing it any string operation are likely to 
be serious. | 


If a string declaration iS preceded by FIXED, the 
four-word descriptor iS aSSigned by the compiler and its 
address 1s the initial value of the String. If a FIXED 
STRING is followed by a parenthesized expression, that many 
characters are allocated for the string and the descriptor 
ls initialized to point to the area thus allocated. Exam- 
ple: | 


DECLARE FIXED STRING S,T,U(5) ,V(249) ; 


allocates string descriptors for S amd T; they must be set 
up to point to strings by SETUP. It also allocates 5 char- 
acters for U and 248 for V and sets up the descriptors. 
properly. 


initialized declarations 


An integer may be initialized by following its name 
with "<“ <constant> or “<" <name>. Thus, 


DECLARE A<3,B<«14,C<A; 


makes 3 the initial value of A, 14 the initial value of B. 
Of course, any expression which can be evaluated by the 
compiler may be used as a constant. This is not the same as 
a PARAMETER declaration (see below). The use of this con- 
Struct iS not recommended if the program changes the values 
of the variables, Since the program must then be reloaded in 
order to be restarted. | 


A FIXED ARRAY can be initialized in the same way: 
DECLARE FIXED ARRAY A[10]<1,3,5,7,11,13; 


The first six elements of A are initialzed as indicated. 
The remaining four elements are initialized to @. 
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A fixed string or a fixed string array may be initial- 
ized in the same way, but the initial values must be string 
constants. Warning: writing into initialized strings will 
destroy the contents. 


If any declaration causes space to be allocated at the 
point in the program where the declaration occurs, a branch 
Over it is compiled. Declarations may therefore be freely 
interpolated in the program. 


field declarations 
Another form of DECLARE is the following: 


DECLARE FIELD <name> 
(<constant>[:<constant>,<constant>] ) 


which defines a field. Lots of fields can be defined if 
desired. The first constant specifies the word displacement 
of the field, the other two the bit postions in the word. 
Bit poSitions can take on values between @ and 47. A field 
may span two words, but it may not be more than 24 bits 
long. Thus: 


DECLARE FIELD A(@),B(1),C(2),C1(2:0,5), 
C2(2535, 20) + KSVYZ(2212,23)3 


defines six fields. The last three might be thought of as 
subfields of C, but they do not have to be used in this way. 
If P were a pointer to a three-word data object, for exam- 
ple, then P.XYZ would refer to the last 12 bits of the third 
word of the object. Such objects can be created from _  no- 
where with the MAKE function or, of course, may be allocated 
by the programmer. | 


Names declared as FIELD are output to DDT with their 
word displacements aS value. See the discussion on 
field-derived constants in a previous section; in 
particular, part 4 of that section. Thus, 


S$(PTR+B) equiv $(PTR+1) equiv PTR.B . 
A full-word field may be declared REAL or PAGED. This 


means that whenever it is used for tailing, the resulting 
quantity is considered REAL or PAGED respectively. 
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parameter declarations 
The declaration 
DECLARE PARAMETER C141,C2<2,C3<3; 


makes the names Cl1,C2,C3 equivalent in all ways to the 
constants 1, 2,3 for the rest of the program. Any constant 
may appear on the right of the “<". Note again that any 
constant expression may be used where a constant is re- 
quired. Parameters, unlike other names, may be redeclared. 


equivalence declaration 
The declaration 
DECLARE INTEGER Q=R, S=T[3]; 


is legal only if T has already been declared as ae fixed 
array. It causes Q to be assigned to the same location as 
R, S to the same location as T[3]. 


function definition 
A function is defined by 
[REAL] FUNCTION or ENTRY [S$] name(arglist); 


If the word REAL appears, the function is assumed to return 
a floating-point value; otherwise, it 1s assumed to return 
integer values, if any. If a S$ precedes the function name, 
the name 1S made an entry. Except when compiling under 
NOLIST LOCAL (described below), there is no difference  be- 
tween FUNCTION and ENTRY. Each argument in the arglist can 
be preceded by INTEGER, STRING or ARRAY and is-7~ declared 
automatically. INTEGER iS assumed unless otherwise Speci- 
fied. If ARRAY is specified, the index bit will be merged 
into the value supplied. A name can be redeclared in a 
Function definition (this is illegal in any other context), 
but only 1f the redeclaration exactly matches any previous 
declaration. The system creates a return link by prefixing 
the function name with X. The statement | 


FUNCTION <FNAME>(A, ARRAY B, STRING C); 
would compile 


STA A: CBA; MRG =2B7; STA B; STX C; LDX @: 
STX X<FNAME>D; 
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If additional arguments INTEGER D,E were supplied, the code 
LDA </-l; STA D; LDA </-2; STA E; 
would be added, 


The function name itself is also declared by this 
Statement. A storage location is reserved for it, and the 
address of the first word of the function (STA A_ above) 1s 
put into this address. 


The link may be specified explicitly, 1f desired, as 
follows: 


FUNCTION F(Q,R), LINK W; 


recursive functions 
A function may be declared recursive by 


[REAL] RECURSIVE FUNCTION or ENTRY [S$] F(A, 
B), SAVE E; 


The effect will be that whenever the function is called the 
link and the current values of A,B and E will be Saved. 
When the function returns (via a RETURN or SRETURN with ~0no 
FROM modifier and only one value returned), the saved var- 
lable values are restored. 


Space for saving the variables is obtained by calling 
the function in the reserved location RECSTK. This cell is 
initialized to be a call to MAKE, but the user may supply 
his own function. The call 

TOPRST < RECSTK (N) 


where N contains the number of words required and the func- 
tion returns the address of the first word. 


Space is released by 
DO RECUNS (TOPRST) ; 


and RECUNS is initialized to FREE. 
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The cell TOPRST, which is also reserved (i.e. built 

into the runtine) contains the address of the current top of 
the recursion stack. Its old value is saved in the second 
word of the stack entry. 
If a function call appears in a compiled expression, it is 
not safe to re-execute the expression inside the function, 
Since the expression may uSe temporary locations which are 
not saved when the function is called. Beware! 


declarations of labels 


A symbol is declared as a label by writing it at the 
beginning of a statement followed by a colon. It is treated 
exactly like a function name: a storage location is reserved 
for it and initialized to the address of the first instruc- 
tion of the statement. Any Statement can be labeled. A 
label is assumed to be an integer scalar. If we have 
Azs.e- 3; GOTO A; this will compile 


tA BSS @; ...;BRU <A; ...;A ZRO :A; 


so that the right thing happens. If the symbol is_- preceded 
by a S$, the label is made an entry. 


These conventions for arrays, strings and labels make 
it very easy for them to be transmitted as arguments. 


Real (floating-point) numbers 


Real numbers occupy two words of storage rather than 
One and therefore have a somewhat anomalous status in QSPL, 
which otherwise takes the position that any kind of quantity 
occupies a Single word (integers, strings, labels, func- 
tions, and arrays all have this property). We define a real 
operand as a real name (possibly subscripted if an array), a 
real constant, a real function, a real expression, or an 
expression tailed by a real field. A real expression may be 
formed in the following ways: , 


l. By combining two real operands with any of 
the following binary operators: +, -, MOD, *, 
/. If any of these operators is applied to a 
real operand and an integer constant, it will 
convert the constant to a real number. A_ real 
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operand and any other kind of integer operand 
will produce an error. 


2. By unary + or - applied to a real operand. 


3. By the construct <real operand> IF <integer 
expression> [ELSE <real operand>]. 


In addition, two real operands may be compared by any of the 
relational operators (=, #, >, <, >=, <=). The test is made 
by doing a floating subtraction and testing the result 
against zero. Beware of round-off error in testing for 
equality. Also, a real operand may appear in a RETURN or 
SRETURN provided it is the only argument of the operation. 
There is no restriction on mixing real and non-real = argu- 
ments of functions; however, the types of the actual argu- 
ments in a call must correspond to those in the function 
definition. The compiler does not check this, and an error 
will probably cause chaos at run-time. 


Various special functions are available for doing’ the 
Same things to real numbers that one can do to integers. 
RIN and ROUT provide floating-point input/output; CSR_= and 
CRS provide conversion between reals and strings; FIX and 
FLOAT convert between reals and integers. These are all. 
discussed in detail in the later sections on special func- 
tions. There is a library of mathematical routines’ with 
QSPL-compatible calling sequences available, including SIN, 
COS, TAN, ATAN, EXP, LON, LOG18, and random number’ gener- 
ation: this is described in a separate document. 


Control Statements 


the IF construct 


The construction 


IF <expression> DO; 


ELSEIF <expression> DO; (@ or more ELSEIFS al- 
lowed ) a 
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ELSE DO; 


ENDIF; 


is legal with the obvious meaning. Any sequence of state- 
ments balanced with respect to IF and ENDIF may appear in 
place of the dots. Of course, IF may be nested. Proper use 
of indentation is strongly recommended. The final ELSE may 
be omitted. — _ 


the FOR and WHILE constructs 


The construction 
FOR <for clause> DO; 


ENDFOR; 
ls also allowed. The arbitrary sequence of statements bal- 
anced with respect to FOR and ENDFOR which 1s symbolized by 
the dots is executed repeatedly under control of the _ for 
clause, whose syntax has three forms: 


<name><<expression> WHILE <expression> 


which causes the value of the first expression to be as- 
Signed to the name and the second expression tested each 
time around the loop. When the test fails (value of the 
expression=0) repetition stops. The assignment and test are 
performed once before the loop is executed; 


<name><<expression> [BY <expression>] TO 
<expression> 


with the obvious meaning. If the BY is omitted, an _  incre- 
ment of 1 is assumed. Repetition continues until the value 
of the name iS greater than the TO expression, unless’ the 
latter iS a negative constant, in which case it continues 
until the name is less. A test is performed before the loop 
is executed for the first time. The special cases 


I<<expression> BY 1 TON 


and 
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I<<expression> BY -l TO @ 
are recognized and compiled more efficiently. 
The similar construction 


WHILE <expression> DO; 


ENDFOR;: 


is also allowed. The body of the loop is executed 
repeatedly as long as evaluation of the expression yields a 
true (nonzero) result. The expression is evaluated once 
before the loop is entered for the first time. 


Miscellaneous Statements 


Listing may be controlled with the statements LIST and 
NOLIST. Either may be followed by SOURCE, CODE, or BINARY, 
and turns on or off the specified form of output. It is not 
a good idea to turn binary output on and off, Since this 
will in general result in an unloadable result. 


Two special options concerning allocation of variables 
are also controlled by NOLIST. NOLIST FREE will prevent 
ZRO°’s for unitialized scalars from appearing on the 
assembly-language listing; this may be useful if re-entrant 
programs are desired. NOLIST EXTERNAL will cause undeclared 
variables to be treated as external; normally they are 
treated aS errors and Space 1S assigned for them. 


ES ee 8 RR 0060 HR = Af MESGE SEO 


The statement 
INCLUDE “<file name>“: 


has the effect of placing the entire contents of the named 
file in the program at that point. This process may be 
nested, i.e., the file being inserted may itself contain 
INCLUDES. Note that since the file is inserted verbatim, it 
Should not end with an END statement. The INCLUDE feature 
is meant primarily for groups of programs with common dec- 
larations. To this end, the statement NOLIST INCLUDE 1s 
provided with the following effect: if it occurs in the 
original source file, it has no effect, while 1f£ it occurs 


OSPL Manual Page 21] 


in an INCLUDEd file, it terminates processing of that file. 
Thus a main program could have the form 


(declarations) 


NOLIST INCLUDE; 


(remainder of program) 
END; 


and any subprogram could use its declarations by INCLUDEing 
Lt. 


The statement 
IDENT <name>; | 


will cause the name to be output to DDT as the program name. 
No more than one IDENT may appear in a program. 


A program should be terminated by an END statement, 
i.e. 


END; 


Macro Facility 
The format of a macro definition is: 


DECLARE MACRO 
<name> (<dummies>) «<definition>; 


where <name> is the name of the macro being defined, <dum- 
mies> is the list of dummy argument names, and <definition> 
is the definition. <name> must be hitherto unmentioned 
identifier. <dummies> may be an empty list; if it is not 
empty, it is a sequence of identifiers separated by commas. 
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These identifiers serve only to indicate the place within 
the definition where actual arguments are to be substituted: 
their use here does not conflict with their previous or 
Subsequent uses for any purpose. The <definition> is any 
sequence of tokens (identifiers, numbers, operators, charac-— 
ter constants, or string constants) not including a_esemi- 
colon. It need not be a legal statement, expression, or 
anything else. 


A macro call looks almost like a function call, 1.e. 
has the form <name> (<arguments>); However, the <arguments> 
are not required to be legal expressions: they need only be 
sequences of tokens balanced with respect to parentheses, 
not containing semicolons, and delimited by commas which are 
not enclosed in inner parentheses. For example, STRING 
X(20), #, and (B,C) are legal arguments. The effect of the 
macro call is that the definition, with the actual argu- 
ments, replaces the call before any further processing is 
done on the statement. A macro call may appear anywhere in 
the statement, not just where a function call would be 
legal. Macros may call other macros. If listing is being 
done, statements will be listed before macro’ substitutions 
have been performed; this is also true when a statement is 
listed in response to an error. 


A word of warning for those accustomed to the NARP 
macro facility. Since substitutions are performed on the 
basis of tokens rather than characters, no substitution 
occurs within character .or string constants in the defini- 
tion., @.9. 


DECLARE MACRO S1(X) «"X"“ 
will not cause a substitution. Also, concatenation is not 
available. Finally, each dummy argument has a name of its. 
own and the proper number of arguments must be supplied at 
each call. 

Two examples of useful macros: 

DECLARE MACRO INC (X) «X<X+1; 
causes INC(A) to be equivalent to A<A+tl; 

DECLARE MACRO TWO (X) <(X) *2; 
causes TWO(X+Y) to be equivelant to (X+Y¥)*2. Note that if 
the definition had been simply X*2, then TWO(X+Y) would have 


been equivalent to X+Y*2, which is presumably not what is 
wanted. , ; 


QSPL Manual 3 | | Page 23 


Special Functions 


The following special functions are a standard part of 
the language. They provide all the built-in storage alloca- 
tion, string handling and input-output facilities. If more 
elaborate facilities are required, recourse may be had to 
machine-language routines. The necessary linkages are des- 
Cribed under function calls and declarations above. 


1. Storage allocation functions 


MAKE, SETARRAY 
MAKE (<expression>) 


creates a block of storage of the length specified by the 
expression ( but of at least two cells) and returns a 
pointer to this block as its value. In fact, one extra cell 
is assigned by the system; the user should keep his hands 
off this cell which is the one before the one pointed to by 
the value of the MAKE function. An alternate form is 


MAKE (<expression>,<array name>) 


which assigns the block out of the specified array, which 
must have been properly initialized beforehand by a call of 


SETARRAY (<expression>,<array name>) ; 


Only blocks of the size specified in the call of SETARRAY 
can be assigned in this way. Blocks of any Size can be 
assigned by a simple MAKE. | | 


PMAKE 


To allocate space on the drum the function PMAKE should 
be used. It is exactly like MAKE, except that the second 
argument, if present, should be a paged pointer to an object 
near which the new space should be assigned if possible. 
Proper use of this feature will greatly improve the effi- 
ciency with which paged objects are accessed. See the dis- 
cussion of the PAGED declaration for further information 
about the proper use of addresses obtained from PMAKE. 


OSPL Manual | | Page 24 


FREE 
To release a block of storage, do 


FREE (<expression>) or FREE(<expression>, 
<array name>) 


where the value of the expression is a pointer to the block. 
The function has no meaningful value. The storage allocator 
will attempt to coalesce freed blocks, but Since it cannot 
move blocks around, it 1S possible to fragment storage hope- 
lessly by acquiring and releasing blocks of many different 
sizes in an indiscriminate manner. If the system runs out 
of space, it will complain and quit. Note that 


FREE (MAKE (4) ) 


acquires and immediately releases a block of four words. It 
is exactly equivalent to NOP (except for timing). FREE also 
works for drum space. 


BCOPY 


To copy one block of storage into another one of equal 
size use 


BCOPY (<expression>,<expression>). 


The first expression is a pointer to the destination, the 
second to the source. These must be pointers acquired my 
MAKE (or carefully fabricated) since the length of the block 
is determined from the contents of the extra hidden word 
provided by MAKE. The source block must have been created 
by a MAKE with a Single argument. If the source block does 
not have the hidden word, | a 


BCOPY (<expression>,<expression>,<expres- 
Sion>) 


may be used, where the third argument specifies the number 
of words to copy. | 
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2. Paging facility 


The paging facilities provide a means for the user to 
allocate and access a large (up to 2T19 words) address 
Space, by buffering parts of this address space between core 
and drum in fixed-size pages. The user can specify the page 
Size, the amount of core space to allocate for buffers 
(which can be changed dynamically during execution), and the 
Size of the address space; individual pages may be locked 
into core for a time and later allowed to be swapped out 
again; the user’s paged data may be divided into a number of 
categories, which allows more efficient allocation of Space 
by grouping objects of the same category on the same page. 


At the time that INIT is called (see the INITIALIZE 
function in section 6), certain cells in the runtime are 
examined to determine the setup of the paging logic. The 
names of these cells are are pre-declared EXTERNAL. The 
cell NPL contains the page size as a power of 2, which must 
be between 8 and ll. The cell NPG contains the size of the 
desired address space as a multiple of 2TNPL: the size 
‘Cannot exceed 2719. If NPG contains a zero, it is assumed 
that no use will be make of the paging logic, and any calls 
On it will produce error comments. . The cell NPB contains 
the number of core buffers to be provided. If it contains 
8, all available space will be used for buffer. The cell 
NPC contains the highest category number which will be used. 
The cell PM contains a poSitive number if the’ direct drum 
accell machinery, BRS 124-127, is to be used for _ storing 
paged data, or a negative number if a random file called 
/SQPDATA is to be used; the former iS somewhat more effi- 
cient, especially if the address space is large, but the 
latter can be accessed by other programs via the ordinary 
File machinery whereas the former cannot. 


A few other cells are of interest. The cell PCAT is 
examined whenever a call is made to PMAKE. If it contains a 
non-zero number, the new block will be allocated on -a page 
reserved for data of the designated category. If it con- 
tains a zero, the new block will be allocated on some _ con- 
venient page without reference to category. A call of PMAKE 
with a valid drum address as the second argument’ takes 
precedence over the setting of PCAT. 


QSPL Manual | Page 26 


LOCK, UNLOCK 
A page may be locked into core with 
LOC K (X) 


where X is a drum address; the value is the corresponding 
core address, which is guaranteed to remain valid until the 
page is unlocked. The function 


UNLOCK (A) 


wnere A 1S a core address, stores the corresponding drum 
address in a cell called PADDR and returns the old lock 
count (which 1S incremented by LOCK and decremented if 
non-zero by UNLOCK) as value; it is all right to unlock an 
unlocked buffer. The cell NUP always contains the number of 
buffers which are not locked at the moment. 


Page buffers are allocated downwards (towards 
low-numbered addresses) from the initial Setting of a cell 
Called ESTORG; the bottom of the buffer area is put into the 
cell EARRAY by the INIT operation. If the uSer wants to 
reduce the amount of space available for buffers, he may use 
BPUT(X), where x iS a core address ina buffer. The buffer 
will be returned to the pool of space available to the core 
allocator (MAKE). The converse operation is BGET(X), which 
restores the buffer for use by the paging logic. Note that 
the buffer area is defined at INIT time (as the NPB * 2TNPL 
cells just below (ESTORG) - 2fNPL and BPUT and BGET may only 
be used on address in this range. INIT allocates Space up 
from BSTORG for tables for the drum allocator, leaving the 
first unused cell in  SARRAY. Thus SARRAY and [EARRAY 
bracket the core not used by the paging logic after and 
INIT, while BSTORG and ESTORG bracket the core available to 
it before an INIT. 7 
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String descriptors, SETUP 


A string is described by a four word descriptor which 
specifies the beginning and-end of a the area assigned to 
the string, the reader pointer, and the writer pointer. The 
function 


SETUP (<string name>,<size>) 


will obtain a block specified size and set up the descriptor 
pointed to by the string name to point to that block. The 
name must already contain a pointer to a descriptor; if it 
contains a @ a runtime error will result. The alternate 
form 


SETUP (<string name>,<size>,<expression>) 
will make a descriptor which points to the specified number 
of characters starting with the word pointed to by the 
expression. The storage allocator is not involked; it is 
the programmer’s responsibility to create the descriptor); 
it is the programmer’s responsibility to ensure that the 

proper amount of space is in fact available. 
SETS, SETR, SETW, LENGTH 
To set ‘the reader and writer pointers of a string, use 

SETS (<name>, <expression>,<expression>). 
The first expression specifies the reader pointer, the sec- 
ond the writer pointer (which must be greater; if it is not, 
the reader is set equal to the writer pointer). Characters 
are numbered starting at @. To set the reader pointer only, 
use | 

SETR (<name>,<expression>). 
To set the writer pointer only, use 


SETW (<name>,<expression>). 


To obtain the length of a string (writer pointer-reader 
pointer) use — 


LENGTH (<name>). 
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None of these functions except LENGTH has a meaningful 
value. 
GCI, GCD, WCI, WCD, APPEND, GC 


To get the next character from as String and increment 
the reader pointer, use 


GCI (<name>). 


If there is no next character, there will be an error com- 
ment and a halt. To avoid this, use the alternate form 


GCI (<name>,:<failure location>) 


(see discusion of failure locations below). This convention 
is also used for the next four functions. 


GCD (<name>) 


reads a character from the end of the string and decrements 
the writer pointer. 


WCI (<expression>, <name>) 


writes the character specified by the expression on the 
String specified by the name. It fails if there is no room. 


WCD(<expression>,<name>) 
writes the character on the front of the string, at the 
location of the reader pointer, and fails for the same 
reason. These functions have the character written as their 
value. 


APPEND (<name>, <name>) 


appends the second string to the first one. It fails 1f 
there is not enough room. It has no meaningful value. 


GC (<name> ) 
yields the next character of the string, but does not ad- 


vance the reader pointer. It never fails, but yields junk 
if the string is empty. | | | 
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string moving 


The expression A<B (where A and B are_ string names) 
Simply moves the contents of B (presumably a pointer to a> 
descriptor) into A. To copy the descriptor, the BCOPY func- 
tion might be used, since string descriptors are just 4 word 
blocks: | 

BCOPY (B,A). 


Be sure to read the section on BCOPY above. To copy the 
String, use | 


SCOPY(8B,A). | 
The effect is that of SETS(B,@,@) followed by APPEND(B, A). 
SCOPY, like APPEND, fails if there is not enough room in B. 
Sstring/number conversion, CNS, CSN, CRS, CSR. 

To convert a string S to a number, write 

CSN (S).: 
To convert a number N to a string S, write 

CNS (N,S). 
This converts a signed number to its decimal representation, 
producing only enough digits to accurately represent the 
number. Extra arguments may be supplied which specify radix 
(19 assumed) and the number of characters in the string © 
version (-l or free format assumed). Corresponding oOper- — 
ations for floating-point numbers are | a 

CSR(S) 


and 


CRS (R,S). 
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INFILE, OUTFILE, FTYPE, ERROR 
A file is opened for input with 
INFILE(<string name>:<failure location>). 
the string contains the full name of the file. This func- 
tion requires the presence of a failure location to which 
control transfers in the case the function fails. Its value 
is the file number. 


OUTFILE (<name>, <expression>[,:<failure loca- 
tion>]) 


does the same thing for output. The expression is the 
option word which BRS 16 takes in the A register. It will 
be assured to be @ if not supplied. Both of these oper- 
ations leave in the location FTYPE the type word returned by 
the BRS, in case of failure, the error returned by the BRS 
is in location ERROR. 
INNAME, OUTNAME 
To acquire file names, use 
INNAME (<name>:<failure location>) 
and 
OUTNAME (<name>:<failure location>) 
both of which collect the name from the teletype and appends 
it to the string Supplied. Both transfer to the given loca- 
tion in the event of failure, and have the terminating 
character as value. 
CLOSE, CLOSALL 
To close a file, do 


CLOSE (<expression>). 


The expression’s value should be the file number. To close 
all files, do 


CLOSALL () ; 
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CIN, COUT, WIN, WOUT, SOUT, CRLF 
To read a character, use 

CIN (<expression>) ; 
The value of the expression should be the file number. This 
function simply does a CIO. Its value is the character 
read. To write a character, use 

COUT (<expression>, [<expression>] ; 
File 1 is assumed if not specified. This function has’ the 
Character written as argument. To read and write a full 
word, use WIN and WOUT in exactly the same way. To write a 
String, use | 

SOUT (<name>[,<file>]). 
To write carriage returns, use 

CRLF (<expression>[,<file>]); 
The expression specifies how many should be written. 

The functions WIN and WOUT behave exactly as CIN~ and 
COUT, except that 24-bit words are transferred to/from files 
rather than 8-bit characters. 

IIN, IOUT, RIN, ROUT 
To read a number, use 

IIN (<file>[,<radix>]). 
Decimal radix is assumed. To write a number, use 

IOUT (<expression>). 
Extra arguments, in order, are the file (1 assumed), the 
radix (10 assumed) and the number of characters to be writ- 
ten (-l or free format assumed). Characters are discarded 
from the left; the number is filled out on the left with 
blanks. A sign is supplied if the number is negative. 


Corresponding operations for floating-point numbers are 


RIN (<file>[,<format>] ) 
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for floating input, and 
ROUT (<expression>,<file>[,<format>d] ) 
for floating output. The format word is explained in R-21; 


if it is omitted, it will be taken as zero, leading to free 
format output. 


6. Miscellaneous functions 


FIX, FLOAT 


Two functions are provided for converting between inte- 
ger and floating-point. To convert a floating-point number 
to an integer by truncation, use 


FIX(<expression>). 

To convert to an integer by rounding, use 
FIX (X+0.5). 

To convert an integer to floating-point, use 


FLOAT (<expression>). 


INITIALIZE 


There are three argumentless Special functions of gen- 
eral interest. INITIALIZE() initializes the QSPL storage | 
allocator, taking all the space between the contents of 
BSTORG and the end of core for itself. | 


The compiler provides an INITIALIZE as the first in- 
Struction of the user’s. program. If the program starts > 
somewhere other than at the beginning and does not begin 
with an INITIALIZE, the user may say CALL <INIT;U to 
QRUN (DDT) before starting the program. Failing this, there 
will be a disaster as soon as the program calls on any 
runtime feature. , 
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HALT, EXIT 
The other two functions are 
HALT () , 
which halts, and 
EXIT (), 
which does a BRS 18. The compiler generates a BRS 18 auto- 
matically at the end of every program. 
BRS, SBRM, POP 
To execute a BRS, do 
BRS (N,A,B,X) 
which sets up the A,B, and X registers and does’ the BRS 
numbered N. Trailing arguments may be ommitted, and the 
adjacent commas may be used if one of the registers does not 
need to be set up. If the BRS is expected to skip, a 
failure location may be used, which will be used if the BRS 
does not skip. The value of BRS is the contents of A when 
the BRS returns; the registers may be saved by a save list 
as for ordinary function calls. 
To execute a SBRM do 
SBRM(N,A,B,X) - 
Conventions are exactly the same as for BRS. 
Arbitrary machine instructions may be generated with 
POP (OP,N,A,B,X). a 
This works like BRS and SBRM except that the opcode is_ the 


value of OP, which must be a constant. Thus, BRS(31,X) and 
POP (573B,31,X) are equivalent. 
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THE COMPILER 


A program is compiled with following set of actions at 
the terminal: 


GQOSPL 

12/18/69 [the date of the last QSPL assembly] 

SOURCE FILE: <file name> <terminating character> 
[the terminating character is either “.“ - assume de- 
fault file for BINARY and _ LISTING, or “,"“ - demand 
further file names] 

BINARY FILE: <file name><terminating character> 
[default is NOTHING] | | 

LISTING FILE: <file name>. [default is NOTHING] 


2 SEC n ERRS' 243 CELLS (Asnl,L:n2(n3) ,1:n4,n5,T:n6,M:n/7) 
@ 


The “n ERRS“ does not appear if there were no’ errrors. 
The numbers printed out in the compilation summary have the 
following significance: 


A:nl, number of symbol table cellS remaining at end of 
compilation. The symbol table has about 4900 cells. 
Symbols take 5 cells; constants take 4 cells. 


L:n2 number of literals (constants) in the literal table. 
This includes constants actually written in the pro- 
gram, temporary and final values of constant expres- 
Sions, and other compiler-generated constants such 
as field masks. | | 


(n3), number of literals which were never referenced in a 
| instruction. | 


Izn4, number of indirect cells generated for labels. 


n5, number of indirect cells generated for arrays and 
function. 7 


T:n6, total number of arithmetic temporary cells gener- 
ated. | 
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Msn7 smallest amount of symbol table space encountered at 
any point during compilation. This number is smal- 
ler than the "A“ number by roughly the number of 
tokens in the longest statement in the program. It 
is the best measure of how close you are to  over- 
flowing QSPL°s symbol table. 


THE RUNTIME 


A subsystem called QRUN contains the QSPL_ runtime. 
When called, it puts the runtime code into page 7, 
read-only, and initializes the pop transfer vector in page 
0. It leaves ;F set after its storage and converts itself 
into DDT. Dumps and continues may be performed exactly as 
though it were DDT. The user may set up SARRAY to the first 
unused cell before calling INIT; otherwise, SARRAY gets’ set 
to 180B beyond the last non-zero word of the program. 
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Runtime Details 


Strings 


A QSPL string descriptor consists of four words, each 
of which is a character address (3 * word address + @, 1 or 
2). They are: 

pointer to character before first character of space 

allocated to string. 

reader pointer for string. 

writer pointer for string. 

pointer to last character of space allocated to string. 
ISD creates such a descriptor. RSD, RSR AND RSW set’ reader 
and writer pointers. Characters are counted from @. RCS 
reads the characters between reader and writer pointer, WCS 
writes -characters between writer and end pointers. RCB 
reads characters between writer and reader pointers. WCB 
writes characters between reader and beginning pointers. A 
variable declared STRING must contain the address of a des- 
Criptor when it is used in a string operation. 


Paging Logic 


A valid drum address has bit 3 off and bit 4 on; bits 
®@-2 are ignored and bits 5-23 comprise the actual virtual 
address. CEA and CEI are used to translate such addresses 
into core addresses into core addresses; if the desired page 
is not in core, it is read in (which usually involves) writ- 
ing out some other page). CEAS and CEIS do the same, execpt 
that they also set a flag associated with the buffer to 
ensure that the page will be rewritten on the drum before a 
new one is brought into the buffer. 
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Core Storage Allocation 


A block allocated by a (fixed) array declaration or by 
a sSingle- argument call of MAKE contains one more word than 
was requested by the user. The extra word, which is the one 
immediately preceding the zeroth word of the block, contains 
the total length of the block, including the extra word. 
The top two bits are used by the storage allocator: 


bit ®@ is on if the block is free. 


bit 1 is on 1f£ the next lower block is free. 
Blocks allocated by a two-argument call of MAKE do not have 
this extra word. . 


An array being used for storage allocation (i.e. one 
set up by SETARRAY, or the SARRAY array) has the following 
form: 


Word Contents 


-l Length + flag bits. see above 

0 -Bead size, or @ for an array which allocates 
variable sized beads (or blocks). 

1 Address of routine to call when free Space is 
exhausted. This word may be set by the program- 
mer. The system does a CALL* through it. 

2 Pointer to master free list (or just to free list 
for arrays allocating fixed size blocks). 

3 Free space to be allocated. 


| The free list for a fixed block size array Starts at 
the second word of the array, 1s linked through the first 
word of each free block, and terminates with a zero. 


The master free list for a variable block size array 
uses one block for each block size. Three words of this 
block are used. 

-l Length + flag bits. 

—«@ Back-pointer. Terminates at @th word of array. 
1 Pointer to Slave-fee list for this block size. 
2 Pointer to next block on master free list. 


The blocks on a slave-free list are all of the same. 
Size. Two words of each are used. 
=] Length + flag bits. 
g Back pointer on Slave-free list. 
l1 Forward pointer on slave-free list, or Q@. 
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The last entry on the master free list may be for block 
size 2. In this case the third word is not available, but 
it 1S not needed, since the master free list is sorted by 
decreasing block size, and the the smallest possible block 
Size 1S 2. 


QSPL RUNTIME POPS 


* on mnemonic means that all central registers not used. to 
return results are destroyed. 


+ on mnemonic means that all central registers are cleared. 


Code Mnemonic Function 

100 CALL Function call. The definition is Just BRU 
<0. Thus F(A, B) compiles LDA A; LDB B; 
CALL «F. 

101 + NSC Numeric to string conversion. (Q) = orig- 
inal integer, (A) = string description ad- 
dress, (B) = radix, (X) = number of charac- 
ters to write (-l means’ free format). 
CNS(A,S) compiles LDA S; LDB =1@; LDX =-1; 
NSC A. | 

162 + MSG Print string starting at A on teletype with 


BRS 34. Not output by compiler. 


193 + FIO Output integer to file. (A) = file number; 
(0), (B), (X) as for NSC. IOUT(A,F,R,G) 
compiles LDA F; LDB R; LDX G; FIO A. 


104° RERR Runtime error. Q (not (Q)) is the error 
, number. 
185 =* RCN Read character, no motion. (0) = string 


descriptor address. Reads the character 
following the one addressed by the descrip- 
tor to A. The descriptor is not changed. 
GD(S) compiles RCN S. 
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166 


107 


1190 


111 


112 


113 


114 
115 


116 


RCS 


WCS 


RCB 


WCB 


RSD 


LNG 


RSR 


RSW 


ESC 
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Read character from string. (Q) = string 
descriptor address. Reads the character 
following the one addressed by the descrip- 
tor into A, increments the descriptor to 
point to the character. Skip if string is 
not empty. GCI(S:f) compiles RCS S; BRU 
<F. 


Write character (Q) on string (A). See 
RCS, but writes character from Q. Skip if 


space left in string. WCI(C,S:F) compiles 


LDA 5S; WCS C; BRU <F. 


A39 


Read character backwards. See RCS, but 


reads the character which would have been 
written by the last WCS. GCD(S:F) compiles 
RCB S; BRU <F. 


Write character backwards. See RCS but 
writes (Q) into the string so that it will 
be read by a following RCS. WCD(C, S:F) 
compiles LDA S; WCB C; BRU <«F. | 


Reset string descriptor. (Q) = string des- 
Criptor address, (A) = character number to 
set read pointer to, (B) = character number 


to set write pointer to. SETS(S,R,W) com- 
piles LDA R; LDB W; RSD S. 


Length of string. (Q) = string descriptor 
address. Number of characters between base 
and write pointers (.le. number of charac- 


ters of uSeful information) returned in A. 


T<LENGTH(S) compiles LNG S; STA T. 


Reset string read pointer. Same as RSD for 


read pointer only. SETR(S,R) compiles LDA 
R; RSR S. 


Reset string write pointer. Same as RSR 
for write pointer. SETW(S,W) compiles LDA 
Ws RSW S. | 


Establish string constant. (Q) as for ISD. 
The word after the ESC contains a character 
count, the following words the characters 
packed 3/word. The string descriptor is 


set to point to this string and _ control 


returns to the word following the last word 


DATA 4; ASC 2,ABCD. 


of the string. S<"“ABCD“ compiles ESC S; 
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117 CEA Compute effective address for paged object. 
(Q) = drum address. Core address of object 
returned in X. A preserved, B destroyed. 
The validity of the core address is guaran- 
teed only until the next paged storage POP. 
Use CEAS if object is to be modified. 

A<P.X compiles CEA P; LDA /X; STA A. 


12@ CEI Compute effective address, indexed. Same 

| as CEA except that (A) is added to (Q) to 

: get drum address. Use CEIS if object is to 

; be modified. A<P[I] compilesLDX I; CEI P; 
LDA /@: STA A. 


121 CEAS Compute effective address for above. Same 
as CEA, but for storing into object. P.X<A 
compiles LDA A; CEAS P; STA /X. 


122 CEIS | Compute effective address, indexed into 
array. P{I]<A compiles LDA A; LDX J; CEIS 
P; STA @. 

123 RCAL Recursive call entry. Q (not (Q)) #=gives 


number of .cells to allocate on stack for 
arguments and SAVEd variables. RECURSIVE 
FUNCTION F(X, Y), SAVE 2Z compiles’ STA 
RECRG1:; LDA @; RCAL 3; LDA X;: STA /2; LDA 
Y; STA /3; LDA Z STA /4: LDA RECRGI1; STA X; 
STB Y. . | 


124 RRET Recursive function exit. Removes'7 block 
from stack and returns. 7 


125 DBLX Double X register. Used for floating-point 
arrays. If A is a REAL ARRAY, then B<A[T] 
complles LDX I; DBLX; LDP «<A; STP B. 


126 ROUT Real output. (Q),(Q+1) is the number. (A) 
= file. (B) = format. ROUT(R,N,Q) com- | 
piles LDA N; LDB Q; ROUT R. 

127 CRS Convert real to string. (Q),(Q+1) 1is_ the 
number. (A) = string descriptor address, 


(B) = format. CRS(R,S,Q) compiles LDA 5; 
LDB Q; CRS R. | 
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APPENDIX B 


Reserved Words 


CLOSE 
CLOSALL | 
CNS 
CODE 
COUT 
CRLF 
CRS 
CSN 
CSR 
DECLARE 


EXIT | 
EXTERNAL 
FIELD 
PIX 
FIXED 
FLOAT 


MASK 
FOR 
FREE 
FROM 
FSHIFT 
FUNCTION 
GC 

GCD 

GCI 
GOTO 
HALT 
IDENT 
If 

TIN 
INCLUDE 
INFILE 
INITIALIZE 
INNAME 
INTEGER 
LOUT 
LCY 
LENGTH 
LINK 
LIST 
LOCAL 
LOCK 


OUTFILE 


OUTNAME 
PAGED 
PARAMETER 
PFLUSH 
PMAKE 

POP 

RCY 

REAL 
RECURSIVE 
RETURN 


_ SETARRAY 


SETR 
SETS 
SETUP 
SETW 
SOURCE 
SOUT 
SRETURN 
STRING 
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BSTORG 


BARRAY — 


ERROR 
ESTORG 
FTYPE 


NPB 
NPC 
NPL 
NUP 


PADDR 


PCAT 


PM 


SARRAY 


 avallable 


Appendix C. 
APPENDIX C 
Standard External Symbols 


First word of storage available to INIT. 


Last word not used for page buffers or tables 
after INIT. 


Error codes left here by INFILE and OUTFILE. 
Last word of storage available to INIT. 
File type left here by INFILE and OUTFILE. 


Number of core buffers for pagins. 9@ = all 


space. 

Desired size of drum address space(2° NPL). 
NPG<=2°(19-NPL). @ = paging will not be 
used. 

Page size as power of 2. 8<=NPL<=ll. 


Number of unlocked pages. 


Drum address of unlocked page. 


Category to be used by PMAKE. @ = don’t 
care. 
>=@: use NRH for paging logic. 4B7: use file 


/SQPDATA. ABT7t+F: 
above + 2B7: 


use file no. F. Any of 
recover old state from file. 


Address of second word not used for page 
buffers or tables after INIT. 
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<expr> 


<xwhr> 


<xforx> 


<xfore> 


<xwhile> 
<xcond> 
<xor> 
<xand> 
<xnot> 
<xrel> 
<xmod> 
<xadd> 


<xmul> 
<xsign> 
-<€xsgnl7> 


<xfc> 


<xfcn> 


<failure> 
<xtail> 


<xref£> 
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QSPL Syntax D43 
APPENDIX D 
BNF Syntax of QSPL 
<xwhr> $(°& <xwhr>); 
<xforx> [WHERE <xforx>]; : 
<xcond> $(FOR <xforc> / WHILE <xwhilc>) ; 
<identifier> (“= / “€) <xcond> ([{ °, <xcond>] 
WHILE <xcond> / [BY <xcond>] TO <xcond>) ; 
<xcond>; 
<xor> [IF <xor> [ELSE <xcond>]]; 
<xand> $(OR sands 
<xnot> $((AND / EOR) <xnot>); 
[NOT] <xrel>; 
<xmod> [(°= / “# / > / “>= / “< / “<#) <xmod>]; 


<xadd> $(MOD <xadd>); 


¢ 


<xmul> $((°+ / “-) <xmul>) ; 


<xsign> $((°* / “/ / LSH / RSH / LCY / RCY) 
<xsign>); | 


[“+ / “- / GOTO] <xtail> / (RETURN / SRETURN) 
<xsgnl7>; 
[<xor> °, <xor> °, <xor> / <xor> °, <xor> / <xor>] 


[FROM <xtail>]; 


<xtail> [°( <xfen> ‘)]; | 
<expr>)] [°: [<failure>] [°: [<identi- 


[<identifier>])]; 


[<expr> $(', 
fier>] S(', 
<identifier> / (RETURN / SRETURN) [<xor>]; 
<xref> $((°. / “$) <gfield>) [<xsubs>] [°« <xor>]; 


$(°$) (“@] <xprim> <xsubs>; 
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<xsubs> 


<xprim> 


<isec> 


<psch> 


<constant> 


<identifer> | 


<charcon> 
<octal> 
<digit> 
<letter> 
<otherchar> 


<stat> 


<function> 
<listop> 
 €nolistop> 
<xfdn> 
<xfdr> 
<fdec> 


<vblist> 


<grwfd> 


<token> » 
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“))3 


“ ( <expr> “) / <ise> / <xsf> / <identifer> / 
<constant>; 


$(°[ <expr 


“" $<psch> “"s 


“& (& J “° Sf “" / Kletter> / <octal> <octal> 
<octal>) / <otherchar>; : 


<octal> $<octal> B [<digit>] / <digit> $<digit> 


[<digit>]] / <charcon>; 


<letter> $(<letter> / <digit>) ; 


and 


<psch> [<psch> [<psch>]] “"; 
OS lS “2/73 / “4/75 / “6 / “7; 
<octal> / “8 / ‘9; 
RS ssc fF 
<any character other than “&, °°, or ~">; 


(DECLARE <xdec> / RECURSIVE FUNCTION <xfidr> / 
FUNCTION <xfdn> / LIST <listop> / NOLIST 
<nolistop> / END / IDENT <identifier> / FOR 
<xforc> DO / WHILE <xwhilc> DO / ELSE DO / 
ENDIF / INCLUDE <isc> / <expr>) °: / [S$] 
<identifier> ‘“: ; 


FUNCTION / ENTRY; 


SOURCE / BINARY / CODE; 


<listop> / FREE / EXTERNAL; 


<fdec> [°, LINK <addr>]; 
<fdec> [°, SAVE <vblist>]; 
[“$] 


<grwfd> $(°, <grwfd>); 


<identifier> °( [<vblist>] °); 


$(INTEGER / STRING / ARRAY / PAGED / REAL) <iden- 


tifier>: 


<ise> / <identifier> / <constant> / <pmark>; 
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<pmark> 


<Xmd> 


<fielddec> 
<paradec> 


<icon> 
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<any of: "#S&() *+,-.:<=>@[]<">; 


<identifier> [°( [<identifier> $(°, <identifier>) ] 


“) |] °€ S<token>; 
<identifier> “( <icon> [°: <icon> 


[°S$] <identifier> °< <icon>; 


*, <icon>] 


<expr which evaluates to a constant>; 


D45 


") 


, 
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#, 4 
Sy 


binary, 7 
unary, 7 


&, 2 


() (field application), 5 
() (function calls), 5 


(] (subscripting), 8 


binary, 4 
unary, 4 


0 
binary, 4 
unary, 4 


« (indirect tailing), 7 
, 4 


<i. 38 
<=, 4 


=, 4 


>, 4 
>=, A 


@, 7 
4, 3 


addition operator, 4 
AND, 4 
APPEND, 28 
Appendix A, A36 
Appendix B, B4l 
Appendix C, C42 
Appendix D, D43 
arguments, | 
of functions, 6 
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of macros, 21 
assignment operator, 3 


BCOPY, 24, 29 
BINARY, 29 

branch operator, 4 
BRS, 33 


CIN, 31 
CLOSALL, 39 
CLOSE, 39@ 
CNS, 29 — 
CODE, 290 
constants, 
character, 9 
field-derived, 190 
constant expressions, ll 
compiler, 
how to operate, 34 
control statements, 18 
FOR, 19 | 
IF, 18 
WHILE, 19 
COUT, 31 
CRLF, 31 
CRS, 29 
CSN, 29 
CSR, 29 
cycle operators, 4 


declarations, ll 
equivalence, 15 
field, 14 
initialization of, 13 
in function 

definitions, 15 

lables, 17 

macros, 21 

paged, 12 

parameter, 15 

String, 13 

symbols, 8, 17 
division operator, 4 
DO, 4 oe 


ELSE, | 

as control statement, 19 
in expression, 3 

ELSEIF, 18 

ENDIF, 19 

END, 21 
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EOR, 4 

equal relation, 4 

equivalence 

declarations, 15 

ERROR, 398 

EXIT, 33 

expressions, 2 

external symbols, 
Standard names, B4l. 


failure returns, 6 
field-derived constants, 190 
field declarations, 14 
fields, 
word operator, 7 
file-naming functions, 39 
files, | 
opening & closing func- 
tions, 380 
input-output 
functions, 31 
FIX, 32 
FLOAT, 32 
floating-point numbers, 17 
FOR, 
as control statement, 19 
in expression, 2 
FREE, 24 
FTYPE, 3@ 
functions, 
argument transmisSion, 6 
calls, 5 
definition, 15 
failure return 
operator, 4, 5 
failure returns, 6 
file-naming, 328 
input-output, 31 
miscellaneous, 32 
paging, 25 | 
recursive definition, 16 
return operator, 4, 5 
return values, 6 
special, 23 | : 
Storage allocation, 23 
String handling, 27 
success return 
operator, 4, 5 
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GC, 28 

GCD, 28 

GCI, 28 

GOTO, 4 

greater than or equal 
relation, 4 

greater than relation, 4 


HALT, 33 
IDENT, 21 
IF, 


as control statement, 18 
in expression, 3. 
IIN, 31 
INCLUDE, 29 | 
indirection operator, 7 
INFILE, 390 | 
INITIALIZE, 32 
initialization, 
of declared objects, 13 
of runtime storage | 
allocator, 32 
INNAME, 30 | 
input-output functions, 3l 
IOUT, 31 


labels, 
declaration, 17 
locality of reference, 20 
LCY, 4 2 
left cycle operator, 4 
left shift operator, 4 
LENGTH, 27 
less than or equal 
relation, 4 
less than operator, 4 
LIST, 290 
listing control, 29 
LOCK, 26 | 
logical and operator, 4 
logical exclusive-or oper- 
ator, 4 7 
logical not operator, 4 
logical or operator, 4 
LSH, 4 | 
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MAKE, 23 RCY, 4 | 
macros, 21 real numbers, 17 
definition, 21 | recursive functions, 16 
use, 21 reference operator, 7 
MOD, 4 relations, 4 | 
multiplication operator, 4 remainder operator, 4 
| reserved words, 
names, 8 as primaries, 9 
name declaration, 8, 17 complete list, B4l 
NOLIST, 20 | RETURN, 4 
NOLIST external, 20 right cycle operator, 4 
NOLIST free, 29 right shift operator, 4 
NOLIST include, 20 RIN, 31 | 
NOT, 4 ROUT, 31 
not equal relation, 4 RSH, 4 
number/string runtime, 35 
conversion, 29 details, A36 
numbers, programmed operators, A38 
aS primaries, 8 | 
conversion to strings, 29 SBRM, 33 
real, 17 SCOPY, 29 
: | SETARRAY, 23. 
OR, 3 SETR, 27 
Operators, 2 SETS, 27 
OUTFILE, 39 SETUP, 27 
OUTNAME, 30. SETW, 27 
shift operators, 4 
paging, | SOURCE, 20 
declarations, 12 SOUT, 3l 
facility described, 25 special functions, 23 
parameter declarations, 15 SRETURN, 4 
PMAKE, ‘25 Standard external 
POP, 33 Symbols, C42 
primaries, 8. Statements, 
Character constants, 9 format of, l 
constant expressions, ll miscellaneous, 290 
names, 9 - Storage allocation func- 
numbers, 8 | tions, 23 
reserved words, 9 string/number 
String constants, 10 © conversion, 29 
program, 1 String descriptors, A37 
string moving, 29 
QRUN, 35 Strings, 
QSPL, appending, 28 
BNF syntax, D43 constants as 
how to operate primaries, 19 | 
compiler, 34 conversion to numbers, 29 
program, l | copying, 29. 


declarations, 13 
descriptor copying, 29 
descriptor 
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initialization, 27 tailing, 
descriptor | direct, 7 
manipulation, 27 indirect, 7 
descriptors defined, A37 
moving, 29 | unary operators, 4 
reading, 28 UNLOCK, 26 
writing, 28 
String constants, 190 WCD, 28 
String handling WCI, 28 
functions, 27 WHERE, 
Subscripting, 3 in expression, 2 
Subtraction operator, 4 WHILE, | | 
Successive evaluation, 2 as control statement, 19 
: in expression, 2 
WIN, 31 


WOUT, 31 


